home *** CD-ROM | disk | FTP | other *** search
/ The Big Mouth 10 / Big_Mouth_The_10_1996_-_Side_B.d64 / 23 matches (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  66 lines
  1. 10 rem ** 23 matches **
  2. 20 poke 53280,5:poke 53281,11
  3. 30 a=rnd(-ti)
  4. 40 print"[147][155]"tab(15)"23 matches"
  5. 50 printtab(8)"by  sonic the immortal "
  6. 99 :
  7. 100 print"when it is your turn, you may take one,"
  8. 110 print"two or three matches. the object of the"
  9. 120 print"game is not to have to take the last    match."
  10. 140 print"lets flip a coin to see who goes first"
  11. 150 print"if it comes up heads, i will go first"
  12. 160 n=23
  13. 170 q=int(2*rnd(5))
  14. 180 fort=1 to 1000:next
  15. 185 if q=1 then 210
  16. 190 print"tails! you go first"
  17. 200 goto 300
  18. 210 print"heads! i win! ha ha!"
  19. 220 print"prepare to lose, sucker!"
  20. 250 print"i take 2 matches"
  21. 260 n=n-2
  22. 270 print"the number of matches is now"n
  23. 275 fort=1 to 500:next
  24. 290 print"your turn - you may take 1, 2 or 3      matches"
  25. 300 print"how many do you wish to remove??? ";
  26. 305 get a$:if a$=""then 305
  27. 310 print a$:a=val(a$)
  28. 320 if a<1 or a>3 then 430
  29. 340 n=n-a
  30. 350 print"there are now"n"matches remaining"
  31. 351 fort=1 to 500:next
  32. 352 if n=4 then 380
  33. 353 if n=3 then 383
  34. 354 if n=2 then 385
  35. 355 if n=1 then 530
  36. 356 if n<=0 then 470
  37. 360 z=4-a
  38. 370 goto 390
  39. 380 z=3
  40. 381 goto 390
  41. 383 z=2
  42. 384 goto 390
  43. 385 z=1
  44. 390 print"my turn! i remove"z"matches"
  45. 400 n=n-z
  46. 410 if n<=1 then 470
  47. 420 goto 270
  48. 429 :
  49. 430 print"very funny! dummy!!"
  50. 440 print"do you want to play or goof around???"
  51. 450 print"  how many matches do you want ??? [146] ";:goto 305
  52. 469 :
  53. 470 print"you poor boob! you took the last match!"tab(52)" ** sucker!! ** "
  54. 480 print"ha ha! i beat you, sucker!"
  55. 500 print"good bye loser!"
  56. 510 goto 600
  57. 529 :
  58. 530 print"you won, well done!!"
  59. 540 print"lets play again, then i'll blow your    shoes off (?? - simba)"
  60. 599 :
  61. 600 rem ** ende **
  62. 610 print"do you want 'nother game??? ";
  63. 620 get a$:if a$="y" then printa$:print"[147]":goto 140
  64. 625 if a$<>"n" then 620
  65. 630 printa$:fort=1 to 500:next:load"the main menu/bm",8,1
  66.